home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / coolca1a / frmmain.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-16  |  2KB  |  64 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "CoolCaption"
  4.    ClientHeight    =   1215
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1215
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Label Label1 
  13.       Alignment       =   2  'Center
  14.       Caption         =   $"frmMain.frx":0000
  15.       Height          =   975
  16.       Left            =   120
  17.       TabIndex        =   0
  18.       Top             =   120
  19.       Width           =   4455
  20.    End
  21. Attribute VB_Name = "frmMain"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Dim myFont As New CDXVBFont
  27. Dim sCaption As String
  28. Private Sub Form_Load()
  29.     ' Create the new font normal width, but 15 pixels high
  30.     myFont.CreateNewFont "harlow solid italic", , 15
  31.     Dim wndDC As Long
  32.     sCaption = "Gilbsoft -"
  33.     wndDC = GetWindowDC(Me.hWnd)
  34.     fw = myFont.GetTextWidth(Me, " ")
  35.     myFont.SetFont wndDC
  36.     nfw = myFont.GetTextWidth(Me, sCaption)
  37.     tfw = Int(nfw / fw)
  38.     For i = 1 To tfw + 2
  39.         ts = ts & " "
  40.     Next i
  41.     Me.Caption = ts & Me.Caption
  42. End Sub
  43. Private Sub Form_Paint()
  44.     Dim wndDC As Long
  45.     Dim wndRect As RECT
  46.     Dim captRect As RECT
  47.     sCaption = "Gilbsoft -"
  48.     wndDC = GetWindowDC(Me.hWnd)
  49.     GetWindowRect Me.hWnd, wndRect
  50.     X = GetSystemMetrics(SM_CXSIZE) + _
  51.         GetSystemMetrics(SM_CXBORDER) + _
  52.         GetSystemMetrics(SM_CXFRAME)
  53.     Y = GetSystemMetrics(SM_CYFRAME) + 2
  54.     captRect.Top = Y
  55.     captRect.Left = X
  56.     captRect.Right = wndRect.Right - wndRect.Left - 2 * X - GetSystemMetrics(SM_CXFRAME)
  57.     captRect.Bottom = GetSystemMetrics(SM_CYSIZE) + 2
  58.     myFont.SetFont wndDC
  59.     SetBkMode wndDC, TRANSPARENT
  60.     SetTextColor wndDC, GetSysColor(COLOR_CAPTIONTEXT)
  61.     DrawText wndDC, sCaption, Len(sCaption), captRect, DT_LEFT
  62.     ReleaseDC Me.hWnd, wndDC
  63. End Sub
  64.